home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Utilities / Converters / Convert_MacPaint / Source / shared.subproj / ProgressInd.psw < prev    next >
Text File  |  1995-06-12  |  1KB  |  42 lines
  1. /***********************************************************************\
  2. Common ps code for drawing a circular progress indicator in all  Convert applications
  3. Copyright (C) 1993 David John Burrowes
  4.  
  5. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version.
  6.  
  7. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  8.  
  9. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  10.  
  11. The author, David John Burrowes, can be reached at:
  12.     davidjohn@kira.net.netcom.com
  13.     David John Burrowes
  14.     1926 Ivy #10
  15.     San Mateo, CA 94403-1367
  16. \***********************************************************************/
  17.  
  18. /*
  19.     routine: DrawIndicator
  20.     description:    This Draws a NeXT-style percentage-done indicator
  21.     Draws: ??
  22.  
  23. */
  24. defineps DrawIndicator(double arcsize; float centerx, centery; double radius)
  25.     newpath
  26.         centerx centery moveto
  27.         centerx centery radius 90 arcsize sub  90  arc 
  28.     closepath
  29.     0.333 setgray    
  30.     gsave
  31.     fill
  32.     grestore
  33.     
  34.     0 setgray
  35.     stroke
  36.     
  37.     newpath
  38.         centerx centery radius 0 360  arc 
  39.     0 setgray
  40.     stroke
  41. endps
  42.